Option Strict Off
Option Explicit On
Imports System.Windows.Media

Namespace Facades
    Public Class DataSource

        Private _name As String
        Private _provider As Services.IDataProvider

        Sub New(ByVal name As String, ByVal provider As Services.IDataProvider)
            ' TODO: Complete member initialization 
            _name = name
            _provider = provider
        End Sub

        Property DataObject As Object

        Sub New()

        End Sub

        Public ReadOnly Property Name As String
            Get
                Return _name
            End Get
        End Property

        Sub Update()
            DataObject = _provider.GetData(_name, Nothing)
        End Sub
    End Class
End Namespace
